home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Bandai Visual CD-ROM Previews 3
/
Bandai Visual CD-ROM Previews 3.iso
/
LARTHUR'S LEGEND
/
item
/
00039_Script_39
< prev
next >
Wrap
Text File
|
1995-02-06
|
891b
|
48 lines
on startmovie
puppetsprite 1 , true
global itemNum , countNum
set countNum = 1
set the castNum of sprite 1 = 2
put "剣" into field "name"
updatestage
end
-----------------
on itemGsetD
global iiemkind , countNum , itemMax, kind
put count (itemkind) into itemMax
if itemMax > countNum then
set countNum = countNum + 1
else
set countNum = 1
end if
set kind = getat (itemkind , countNum)
set the castNum of sprite 1 = cast kind
put kind into field "name"
updatestage
end
on itemGsetU
global itemkind , countNum , itemMax, kind
put count (itemkind) into itemMax
if 1 < countNum then
set countNum = countNum - 1
else
set countNum = itemMax
end if
set kind = getat (itemkind , countNum)
set the castNum of sprite 1 = cast kind
put kind into field "name"
updatestage
end